---
title: "Startup Success Prediction Dashboard"
author: "Helena Schick"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    social: menu
    source_code: embed
---

```{r setup, include=FALSE}
library(flexdashboard)
library(ggplot2)
library(plotly)
library(plyr)
library(readr)
library(leaflet)
library(visdat)
library(recipes)
library(rsample)
library(parsnip)
library(workflows)
library(tune)
library(yardstick)
library(vip)
library(purrr)

path <- "/Users/helena.schick/Documents/GitHub/r-sql-startup-success/df.csv"

df <- read_csv(path)
```

Column {data-width=650}
-----------------------------------------------------------------------

### Relationships by Status

```{r}
p <- ggplot(df, aes(x = status, y = relationships, color = status)) +
  geom_boxplot() +
  theme_bw(base_size = 12) +
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5))
ggplotly(p)
```

-----------------------------------------------------------------------

### Locations by Status

```{r}
df$statuscol <- ifelse(df$status == "acquired", "red", "blue")

leaflet() %>% 
  addTiles() %>%
  addCircleMarkers(df$longitude, 
                   df$latitude, 
                   radius = 6, 
                   color = df$statuscol,
                   fill = df$statuscol,
                   popup = paste(df$state_code,
                                 df$name,
                                 df$status,
                                 sep = "")) %>%
  addLegend("bottomleft", 
            colors = c("red","blue"),
            labels = c("acquired",
                       "closed"), 
            opacity = 0.8)
```

Column {data-width=350}
-----------------------------------------------------------------------

### Classification

```{r}
# Error with recipe
```

-----------------------------------------------------------------------

### Most important features

```{r}
# Also an error
```

-----------------------------------------------------------------------